Define a substitute for <menu> on MS-Windows

* lisp/mouse.el (context-menu-mode-map): On w32, use <apps>
in addition to (the mostly non-existent) <menu>.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index d137419e02af4f49e3faee9a01d73258ac54977e..8b209638423081ed3893b2a970a334b7a1b3c1ac 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -469,6 +469,8 @@ the same menu with changes such as added new menu items."
     (define-key map [mouse-3] nil)
     (define-key map [down-mouse-3] context-menu-entry)
     (define-key map [menu] #'context-menu-open)
+    (if (featurep 'w32)
+        (define-key map [apps] #'context-menu-open))
     (when (featurep 'ns)
       (define-key map [C-mouse-1] nil)
       (define-key map [C-down-mouse-1] context-menu-entry))